CAAIlluminatedFraction_PlutoMagnitudeAA <-
function(r, Delta){
.Call("CAAIlluminatedFraction_PlutoMagnitudeAA", r, Delta)
}
